home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Sounds / MacInTalk Stuff / speakFile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-29  |  2.9 KB  |  90 lines  |  [TEXT/ttxt]
  1. PROGRAM SpeakFile(f);
  2.  
  3. {$R-}
  4. {$M+}
  5. {$X-}
  6.  
  7. {    A quick and dirty program to read a file out loud.  The file must be named
  8.      "TextToSpeak" and reside on the default drive.  The program reads 5120
  9.      characters from this file and sends that string thru the Reader English to
  10.      phonetics converter.  The output from Reader is then sent thru the MacinTalk
  11.      speech synthesizer.  The input file is assumed to be terminated by a "##".
  12.      Only the SpeechOn error code is checked.  THIS PROGRAM IS INTENDED ONLY AS A
  13.      DEMONSTRATION OF HOW TO SETUP AND CALL THE SPEECH SYNTHESIZER, AND DOES
  14.      NOT CONFIRM TO MACINTOSH'S USER INPUT STYLE.                               }
  15.  
  16.  
  17.  
  18. {**** You must include these USES statements ****}
  19.  
  20. USES
  21.      {$U Obj/MemTypes   }     MemTypes,
  22.      {$U Obj/QuickDraw  }     QuickDraw,
  23.      {$U Obj/OSIntf     }     OSIntf,
  24.      {$U Obj/ToolIntf   }     ToolIntf,
  25.      {$U Obj/PackIntf   }     PackIntf,
  26.      {$U Obj/SpeechIntf }     SpeechIntf;
  27.  
  28.  
  29.  
  30.  
  31. TYPE
  32.    bytes = packed array[1..5120] of char;
  33.    byteptr = ^bytes;
  34.  
  35.  
  36. VAR
  37.    i:                         INTEGER;
  38.    linein:                    bytes;         {the English text to be spoken}
  39.    lineptr:                   byteptr;       {a pointer to the text}
  40.    f:                         file;          {for input file TextToSpeak}
  41.    output:                    Handle;        {Handle to phonetic string}
  42.    theSpeech:                 SpeechHandle;  {Handle to speech globals}
  43.  
  44.  
  45. BEGIN
  46.  
  47.    i := SpeechOn('', theSpeech);             {Open the speech driver and the
  48.                                               READER English to phonetics
  49.                                               conversion package with the default
  50.                                               pronounciation ruleset.}
  51.  
  52.  
  53.    IF (i <> 0) THEN exit(SpeakFile);          {If error, go away}
  54.  
  55.  
  56.    reset(f, 'TextToSpeak');                  {Open the English input file.}
  57.  
  58.  
  59.  
  60.    i := blockread(f, linein, 10);            {Read 10 blocks (5120 chars) from
  61.                                               the input file.}
  62.  
  63.  
  64.    lineptr := @linein;                       {Setup pointer to the English text.}
  65.  
  66.  
  67.    output := NewHandle(0);                   {Create a handle for the phonetic
  68.                                               output.  Reader will dynamically
  69.                                               grow this handle as needed.}
  70.  
  71.  
  72.                {Convert the English text to phonetic codes.}
  73.  
  74.    i := Reader(theSpeech, POINTER(lineptr), 6000, output);
  75.  
  76.  
  77.    i := MacinTalk(theSpeech, output);        {Say it.}
  78.  
  79.  
  80.    SpeechOff(theSpeech);                     {Close the speech driver.}
  81.  
  82.  
  83.    DisposHandle(output);                     {Release the output handle}
  84.  
  85.  
  86.    close(f)                                  {Close the input file.}
  87.  
  88. end.
  89.  
  90.